SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00252.ls

Text File | 1995-10-13 | 888 b | 23 lines

on mouseDown
  global giVid2Sprite, mouseUp, mouseUp, mouseUp, glShotList, gbShotFlag, giCurrentGirl, glGirlNames, giTempVid2Cast, giVidSprite, gsMovieDir, giTempVidCast, giNavNumber, aIndex, septracker
  puppetSound("snapshot")
  set sTemp to getAt(glGirlNames, giCurrentGirl)
  if giNavNumber > 9 then
    set giNavNumber to 1
  end if
  set sMovieName to gsMovieDir & sTemp & septracker & sTemp & aIndex & giNavNumber & ".mov"
  set giNavNumber to giNavNumber + 1
  set the fileName of cast giTempVid2Cast to sMovieName
  if the result = 1 then
    set tempSprite to 3
    set tempCast to giTempVid2Cast
  end if
  if gbShotFlag = 0 then
    set glShotList to [the fileName of cast tempCast, the movieTime of sprite tempSprite]
    set gbShotFlag to 1
  else
    append(glShotList, the fileName of cast tempCast)
    append(glShotList, the movieTime of sprite tempSprite)
  end if
end